﻿Public Class Star
    Inherits GenericCharacter

    Public Sub New(ByVal count As Integer, ByVal startPoint As GdiGaming.Vector2)
        Dim sprite As New GdiGaming.Sprite
        sprite.Name = "CharacterBlip"
        sprite.SpriteSheetName = "Blip"
        sprite.SetFrameBounds(New Rectangle(0, 0, 16, 16))
        Sprites.Add(sprite)
        Dim star As New GdiGaming.AnimatedSprite
        star.Frames.Add(New Rectangle(0, 0, 48, 48))
        star.Frames.Add(New Rectangle(0, 48, 48, 48))
        star.Frames.Add(New Rectangle(0, 96, 48, 48))
        star.Frames.Add(New Rectangle(0, 144, 48, 48))
        star.Name = "Star"
        star.SpriteSheetName = "stars"
        star.ZOrder = -1
        Sprites.Add(star)
        ZOrder = 1
        CollisionRadius = 12
        Name = "Character" & count.ToString
        ProcessInput = True
        Position = startPoint
        HasCollision = True
    End Sub
End Class
